home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / libraries / screenfool30.lha / ScreenFool / Install-ScreenFool < prev    next >
Encoding:
Text File  |  1994-10-24  |  4.7 KB  |  201 lines
  1. ;$VER: Install-ScreenFool 3.0 (30.9.94)
  2.  
  3. (set whichway
  4.   (askchoice
  5.     (prompt "Where do you want to install ScreenFool?")
  6.     (help 
  7.       (cat "Installing to SYS:WBStartup or SYS:Tools/Commodities will copy "
  8.        "libraries and language catalogs to system directories.\n\n"
  9.        "Custom installation will keep all files in one directory, for "
  10.        "easier uninstallation.  Note that ReqTools will be copied to LIBS: "
  11.        "if necessary in all cases."
  12.       )
  13.     )
  14.     (choices "SYS:WBStartup" "SYS:Tools/Commodities" "Custom...")
  15.     (default 0)
  16.   )
  17. )
  18.  
  19. (if (= whichway 2)
  20.   (
  21.     (set destdir
  22.       (askdir
  23.         (prompt "Please choose the drawer in which you want to create the ScreenFool drawer.")
  24.         (help @askdir-help)
  25.         (default @default-dest)
  26.       )
  27.     )
  28.     
  29.     (copyfiles 
  30.       (prompt ("Copying ScreenFool to %s..." destdir))
  31.       (help @copyfiles-help)
  32.       (dest (tackon destdir "ScreenFool"))
  33.       (source (pathonly @icon))
  34.       (choices "ScreenFool" "ScreenFool-AP" "ScreenFool.guide" "Readme"
  35.         "PSPub.sf" "PWPub.sf" "SF-Startup.sf" "SFTest.sf"
  36.         "screenfool.library" "SFNewScrReq.IFF" "SFWindow.IFF" "Catalogs")
  37.       (confirm)
  38.       (infos)
  39.     )
  40.     
  41.     (complete 60)
  42.     
  43.     (foreach (tackon destdir "ScreenFool") "#?"
  44.       (tooltype
  45.         (dest @each-name)
  46.         (noposition)
  47.       )
  48.     )
  49.     
  50.     (complete 80)
  51.     
  52.     (copylib
  53.       (prompt "Copying reqtools.library to Libs:...")
  54.       (help @copylib-help)
  55.       (source "reqtools.library")
  56.       (dest "Libs:")
  57.       (confirm)
  58.     )
  59.     
  60.     (complete 100)
  61.   )
  62.   ; End of "Custom" procedure; begin of "standard" procedure
  63.   (
  64.     (if (= 0 whichway)
  65.       (
  66.         (set destdir "SYS:WBStartup")
  67.         (set popup "No")
  68.       )
  69.       (
  70.         (set destdir "SYS:Tools/Commodities")
  71.         (set popup "Yes")
  72.       )
  73.     )
  74.     
  75.     (copylib
  76.       (prompt "Copying screenfool.library to Libs:...")
  77.       (help @copylib-help)
  78.       (source "screenfool.library")
  79.       (dest "Libs:")
  80.       (confirm)
  81.     )
  82.     
  83.     (complete 20)
  84.  
  85.     (copylib
  86.       (prompt "Copying reqtools.library to Libs:...")
  87.       (help @copylib-help)
  88.       (source "reqtools.library")
  89.       (dest "Libs:")
  90.       (confirm)
  91.     )
  92.     
  93.     (complete 40)
  94.     
  95.     (set whichvers (>= (database "cpu") 68020))
  96.     
  97.     (set whichvers
  98.       (askchoice
  99.         (prompt "Please choose a version of ScreenFool to install.")
  100.         (help 
  101.           (cat "ScreenFool is intended for users of 68000-based computers. "
  102.            "ScreenFool-AP is for users of 68020 and higher systems.")
  103.           )
  104.         (choices "ScreenFool (68000 version)" "ScreenFool-AP (68020+ version)")
  105.         (default whichvers)
  106.       )
  107.     )
  108.     
  109.     (if whichvers
  110.       (
  111.         (copyfiles
  112.           (prompt "Copying Advanced Processor version...")
  113.           (help @copyfiles-help)
  114.           (source "ScreenFool-AP")
  115.           (dest destdir)
  116.           (infos)
  117.         )
  118.         
  119.         (tooltype
  120.           (prompt "Modifying Advanced Processor tool types...")
  121.           (dest (tackon destdir "ScreenFool-AP"))
  122.           (settooltype "CX_POPUP" popup)
  123.           (settooltype "DONOTWAIT" "")
  124.           (setstack 8192)
  125.           (noposition)
  126.         )
  127.       )
  128.       ;Else
  129.       (
  130.         (copyfiles
  131.           (prompt "Copying Regular version...")
  132.           (help @copyfiles-help)
  133.           (source "ScreenFool")
  134.           (dest destdir)
  135.           (infos)
  136.         )
  137.         
  138.         (tooltype
  139.           (prompt "Modifying Regular tool types...")
  140.           (dest (tackon destdir "ScreenFool"))
  141.           (settooltype "CX_POPUP" popup)
  142.           (settooltype "DONOTWAIT" "")
  143.           (setstack 8192)
  144.           (noposition)
  145.         )
  146.       )
  147.     )
  148.     
  149.     (complete 60)
  150.     
  151.     (copyfiles
  152.       (prompt "Copying ScreenFool.guide to LOCALE:Help/english...")
  153.       (help @copyfiles-help)
  154.       (source "ScreenFool.guide")
  155.       (dest "Locale:Help/english")
  156.       (infos)
  157.     )
  158.     
  159.     (complete 70)
  160.     
  161.     (copyfiles
  162.       (prompt "Copying additional help files to LOCALE:Help/english...")
  163.       (help @copyfiles-help)
  164.       (pattern "#?.iff")
  165.       (source (pathonly @icon))
  166.       (dest "LOCALE:Help/english")
  167.     )
  168.     
  169.     (complete 80)
  170.     
  171.     (copyfiles
  172.       (prompt "Copying demonstration macros to Rexx:")
  173.       (help @copyfiles-help)
  174.       (pattern "#?.sf")
  175.       (source (pathonly @icon))
  176.       (dest "Rexx:")
  177.       (confirm)
  178.     )
  179.     
  180.     (complete 90)
  181.     
  182.     (set vernum (getversion "exec.library" (resident)))
  183.     (set ver (/ vernum 65536))
  184.     
  185.     (if (>= ver 38)
  186.       (copyfiles
  187.         (prompt "Copying ScreenFool translations to LOCALE:Catalogs")
  188.         (help @copyfiles-help)
  189.         (source "Catalogs")
  190.         (dest "Locale:Catalogs")
  191.         (confirm)
  192.         (all)
  193.       )
  194.     )
  195.     
  196.     (complete 100)
  197.   )
  198.   
  199.   (set @default-dest destdir)
  200. )
  201.